Windows 6-Pak - Disc 3/Windows 6-Pak (InfoMagic) (Disc 3) (1999).ISO/Misc-Sound-Tools/metronome.zip/Metronome.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-11-18 | 3KB | 158 lines

object Form1: TForm1
  Left = 294
  Top = 216
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Metronome'
  ClientHeight = 138
  ClientWidth = 253
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 8
    Top = 92
    Width = 49
    Height = 17
    Caption = '&Options'
    OnClick = SpeedButton1Click
  end
  object Label4: TLabel
    Left = 8
    Top = 8
    Width = 23
    Height = 13
    Caption = 'BPM'
  end
  object Label5: TLabel
    Left = 8
    Top = 48
    Width = 31
    Height = 13
    Caption = 'Sound'
  end
  object SpeedButton2: TSpeedButton
    Left = 8
    Top = 111
    Width = 49
    Height = 17
    Caption = '&About'
    OnClick = SpeedButton2Click
  end
  object Edit1: TEdit
    Left = 8
    Top = 24
    Width = 81
    Height = 21
    TabOrder = 0
    Text = '60'
    OnKeyPress = Edit1KeyPress
  end
  object UpDown1: TUpDown
    Left = 89
    Top = 24
    Width = 12
    Height = 21
    Associate = Edit1
    Min = 1
    Max = 600
    Position = 60
    TabOrder = 1
    Wrap = False
    OnChanging = UpDown1Changing
  end
  object BitBtn1: TBitBtn
    Left = 115
    Top = 32
    Width = 121
    Height = 49
    Caption = '&Play'
    TabOrder = 2
    OnClick = BitBtn1Click
  end
  object ComboBox1: TComboBox
    Left = 8
    Top = 64
    Width = 97
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 3
    OnChange = ComboBox1Change
    OnDropDown = ComboBox1DropDown
  end
  object LightCheck1: TLightCheck
    Left = 72
    Top = 100
    Width = 17
    Height = 17
    Shape = tsCircle
    Checked = True
    OffColor = clInactiveCaption
    TabOrder = 4
  end
  object Panel1: TPanel
    Left = 114
    Top = 103
    Width = 122
    Height = 25
    BevelInner = bvLowered
    TabOrder = 5
    object Label3: TLabel
      Left = 4
      Top = 4
      Width = 53
      Height = 13
      Caption = 'Calculated:'
    end
    object Label2: TLabel
      Left = 60
      Top = 4
      Width = 29
      Height = 13
      Caption = '? bpm'
    end
  end
  object SuperTimer1: TSuperTimer
    OnTimer = SuperTimer1Timer
    Left = 112
  end
  object SuperTimer2: TSuperTimer
    Interval = 60
    OnTimer = SuperTimer2Timer
    Left = 144
  end
  object PopupMenu1: TPopupMenu
    Left = 176
    object CalculateBMP1: TMenuItem
      Caption = '&Calculate BPM'
      Checked = True
      OnClick = CalculateBMP1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object Onebeat1: TMenuItem
      Caption = '&One beat'
      GroupIndex = 1
      RadioItem = True
      OnClick = Onebeat1Click
    end
    object Averageof51: TMenuItem
      Caption = '&Average of 5 beats'
      Checked = True
      GroupIndex = 1
      RadioItem = True
      OnClick = Averageof51Click
    end
  end
end